home *** CD-ROM | disk | FTP | other *** search
/ Zoom 2 / Zoom - Release 2 (1996)(Active Software)[!].iso / misc / hdgamesinstallers / atr / atrinstall < prev    next >
Text File  |  1995-03-02  |  2KB  |  69 lines
  1. ; $VER: All Terrain Racing HD Install-Script V1.0 (2.2.95) by Cobra for ACCESS
  2. ; Original Script written by ROLAND for ACCESS
  3.  
  4. (set GameDir "AllTerrainRacing")
  5. (set TotalDisks 2)
  6. (set CurrentDisk 0)
  7. (set Percent 20)
  8. (set DiskPercent (/ (- 100 Percent) TotalDisks))
  9. (set keuze 0)
  10.  
  11. ;try to figure out a place where the user usually installs his games
  12. (if (exists "Games:" (noreq) )
  13.     (set @default-dest "Games:")
  14.     (if (exists "SYS:Games" (noreq) )
  15.         (set @default-dest "SYS:Games")
  16.         (if (exists "Work:Games" (noreq) )
  17.             (set @default-dest "Work:Games")
  18.             (set @default-dest "SYS:")
  19.         )
  20.     )
  21. )
  22.  
  23. ;ask the user to select a directory to install the game into
  24. (set default-dest
  25.      (tackon (askdir (prompt "Where would you like " @app-name " installed?\n"
  26.                              "A drawer called " GameDir " will be created.")
  27.                      (help @askdir-help)
  28.                      (default @default-dest)
  29.                      (newpath)
  30.              )
  31.      GameDir
  32.      )
  33. )
  34. (set @default-dest default-dest)
  35. (complete 5)
  36.  
  37. ;create the selected directory and a subdirectory called Data
  38. (makedir @default-dest
  39.          (infos)
  40. )
  41. (complete 10)
  42.  
  43. ;copy all extra files to this directory
  44. (copyfiles (source "AllTerrainRacing")
  45.            (dest @default-dest)
  46. )
  47. (copyfiles (source "AllTerrainRacing.info")
  48.            (dest @default-dest)
  49. )
  50. (copyfiles (source "ATR.EXE")
  51.            (dest @default-dest)
  52. )
  53. (complete Percent)
  54.  
  55. ;copy all the disks to the data directory
  56. (until (= CurrentDisk TotalDisks)
  57.        (set CurrentDisk (+ CurrentDisk 1))
  58.        (message "\n\n\n\n\n\nPlease insert " @app-name " Disk "
  59.                 CurrentDisk " into DF0:"
  60.        )
  61.        (working "\n\n\n\nConverting disk " CurrentDisk "\n"
  62.        )
  63.        (run (cat "Read " (tackon @default-dest (cat "ATR.DAT" CurrentDisk) ) )
  64.        )
  65.        (set Percent (+ Percent DiskPercent))
  66.        (complete Percent)
  67. )
  68. (complete 100)
  69.